home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / graphics / copper.h < prev    next >
Text File  |  1990-11-01  |  1KB  |  59 lines
  1. {$if not def GRAPHICS_COPPER_H}
  2. Const GRAPHICS_COPPER_H=77;
  3.  COPPER_MOVE=0;
  4.  COPPER_WAIT=1;
  5.  CPRNXTBUF=2;
  6.  CPR_NT_LOF=$8000;
  7.  CPR_NT_SHT=$4000;
  8. Type
  9. p_CopIns=^CopIns;
  10. p_CopList=^CopList;
  11. p_cprlist=^cprlist;
  12. p_UCopList=^UCopList;
  13. CopIns=Record
  14.  OpCode:integer;
  15.  u3:Record
  16.     Case integer of
  17.     0:(nxtlist:p_CopList);
  18.     1:(u4:Record
  19.           u1:Record
  20.              Case integer of
  21.              0:(VWaitPos:integer);
  22.              1:(DestAddr:integer);
  23.              End{u1};
  24.           u2:Record
  25.              Case integer of
  26.              0:(HWaitPos:integer);
  27.              1:(DestData:integer)
  28.              End {u2}
  29.           End {u4} )
  30.     End{u3};
  31. End;
  32. cprlist=Record
  33.  Next:p_cprlist;
  34.  start:^Word;
  35.  MaxCount:integer;
  36. End;
  37. CopList=Record
  38.  Next:p_CopList;
  39.  _CopList:p_CopList;
  40.  _ViewPort:Ptr   {p_ViewPort;}
  41.  CopIns:p_CopIns;
  42.  CopPtr:p_CopIns;
  43.  CopLStart,CopSStart:^Word;
  44.  Count,MaxCount,DyOffset:integer;
  45. End;
  46. UCopList=Record
  47.  Next:p_UCopList;
  48.  FirstCopList:p_CopList;
  49.  CopList:p_CopList;
  50. End;
  51. p_copinit=^copinit;
  52. copinit=Record
  53.  diagstrt:Array[0..3]of Word;
  54.  sprstrtup:Array[0..39 {(2*8*2)+2+(2*2)+2}]of Word;
  55.  sprstop:Array[0..1]of Word;
  56. End;
  57. {$endif}
  58.  
  59.